Yellows - Privacy (Deluxe)/Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso/mono/bra.dxr/00033.ls

Text File | 1996-07-06 | 1.1 KB | 31 lines

on inits
  global monolist, monoclist, keydetect, event
  set monolist to ["002,A", "002,C", "002,D", "002,E", "002,G", "002,H", "002,I", "002,K", "002,L", "002,N", "002,O", "002,P", "002,Q", "002,S", "002,T", "002,U", "002,V", "002,W", "002,X", "002,Y"]
  set monoclist to []
  set a to count(monolist)
  repeat with i = 1 to a
    set mono to getAt(monolist, random(count(monolist)))
    add(monoclist, mono)
    deleteAt(monolist, getPos(monolist, mono))
  end repeat
  repeat with i = 2 to 7
    puppetSprite(i, 1)
    set the ink of sprite i to 0
    set the type of sprite i to 1
    set the foreColor of sprite i to 255
    set the backColor of sprite i to 0
  end repeat
end

on columnset num
  repeat with i = 1 to 3
    repeat with t = 1 to 2
      set monoc to getAt(monoclist, ((num - 1) * 2) + ((i - 1) * 2) + t)
      set spnum to (2 * (i - 1)) + t + 1
      set the castNum of sprite spnum to the number of member monoc
      set the locH of sprite spnum to 130 + ((i - 1) * 189)
      set the locV of sprite spnum to 162 + ((t - 1) * 156)
    end repeat
  end repeat
end